home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-02-26 | 640 b | 26 lines |
- '=============
- 'Example24_1.Amos
- '==============
-
- Rem fade each colour manually using the COLOUR instruction. See chap 24.
- '-----------------------------------------------------------------------
- Flash Off : Hide
- Load Iff "df0:pics/sonic.iff",0
-
-
- Rem A for next loop to cover all 16 colours of this picture
- Rem if the picture used 32 colours the range would be 0-31
- '----------------------------------------------------------
- For A=0 To 15
- Locate 0,23
- Print "FADING COLOURS"
-
- Rem set COLOUR A to black
- '------------------------
- Colour A,$0
-
- Wait 50
- Next A
-
- Rem this leaves you in direct mode, press escape to get to the editor
- Direct